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ATTENTION 
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FOCL.S, AN EXPANDED LANGUAGE FOR 
SMALL COMPUTERS, BASED ON FOCAL 

DEC US Program Library Write-up DECUS NO. FOCAL8-148 

DESCRIPTION 



FOCL/S IS A ONE USER VERSION OF FOCAL/69 FOR 8K PDP-8/12 
COMPUTERS, AMONG THE ADDITIONAL FEATURES ARE: 

-UP TO 8 MULTIPLE SUBSCRIPTED ARRAY VARIABLES, 

-TEXT, VARIABLES, PUSHDOWN LIST, AND EXTENDED FUNCTIONS 
HAVE BEEN MOVED TO FIELD 1 THUS : (1) FREEING 

CORE IN FIELD FOR USER DEFINED FUNCTIONS, (2) MORE EFFICIENT 
TRADE OFF BETWEEN TEXT STORAGE AND VARIABLES, 

-XOD COMPATIBILITY FOR EASY DEBUGGING, 

-DIRECT ACCESSING OF CORE,* 

-EXECUTION OF MACHINE LANGUAGE INSTRUCTIONS, THUS ALLOWING 
ABILITY OF DRIVING SPECIALIZED HARDWARE DIRECTLY WITH FOCL/S,* 

-LOGICAL 'AND* BETWEEN EXPRESSIONS,** 

-OCTAL TO DECIMAL CONVERSION, 

-DECIMAL TO OCTAL CONVERSION. 

-'ON* COMMAND. - A THREE BRANCH "CONDITIONAL DO"; CALLS 
LINES OR GROUPS AS SUBROUTINES UPON CONDITION OF AN 
EXPRESSION (SIMILAR TO IF ONLY 'DO* IS EXECUTED INSTEAD 
OF 'GOTO') 

-LINE NUMBER COMPUTATION FROM ARITHMETIC EXPRESSIONS.*** 

-NO LIMIT (EFFECTIVELY) TO LENGTH OF DIRECT COMMAND LINE. 

-CONT/K - CONTINUATION CHARACTER FOR TEXT/COMMAND LINES, 

-TDUMP TYPES VARIABLES IN ORDER OF MOST RECENTLY CREATED 
FIRST: AS IN DEBUGGING ONE IS USUALLY INTERESTED IN THE 
MOST RECENTLY CREATED VARIABLES, 

♦THANKS TO '•FOCAL+" BY D.DYMENT 

** THANKS TO "FAND" BY J. C, ALDERMAN 

*** THANKS TO A. B, WILSON 



COMPATIBILITY WITH FOCAL/69 

SYNTACTICALLY FOCL/S IS COMPLETELY COMPATIBLE WITH FOCAL/69, 
THE PROGRAM WAS INTENDED TO BE A SUPERSET OF FOCAL/69. THE 
ONLY DIFFERENCES ARE: 

-THE LIBRARY EXIT COMMAND HAS BEEN REMOVED: HOWEVER 

THE USER MAY EXAMINE THE EQUIVALENT LOCATIONS THROUGH USE 

OF THE FX<1,X,Y) COMMANDS AND CONVERT THEM TO OCTAL THROUGH 

USE OF THE FX(8,M) COMMAND 

-T $ CAUSES TYPEOUT OF THE VARIABLES IN REVERSE ORDER 

TO THAT IN WHICH THEY WERE CREATED 

-THE ERROR DIAGNOSTIC LIST IS EXTENDED AND CHANGED 



WdLTIPLE SUBSCRIPTED ARRAYS 



THESE ARRAYS ARE STORED IN A "COMMON" STORAGE AREA, AVAILABLE TO 
ALL FOCL/S PROGRAM SEGMENTS. THEY ARE INITIALIZED WITH THE 
LIBRARY OPEN COMMAND, WHICH HAS THE FOLLOWING SYNTAXt 

LIBRARY OPEN, NAME, ORIGIN, LIMITl, LIM2, LIM3, LIM4 (RETURN) 

FOR EXAMPLE: 

LIBRARY OPEN, X, 0,2, 2, 2, 2 

WILL OPEN A 4-DIMENSIONAL ARRAY NAMED X OF MAXIMUM LENGTH 2 

IN EACH DIMENSION. THE VARIABLE ORIGIN PARAMETER IS 0, 

WHICH MEANS THAT THE ARRAY WILL BE STORED AT THE LOWER BOUND 

(BEGINNING) OF THE VARIABLE STORAGE AREA, IN THE PRESENT VERSION 

THE LIBRARY OPEN COMMAND MUST BE THE LAST STATEMENT 

ON A LINE. 

VARIABLE STORAGE AREA IS ASSIGNED BY THE LIBRARY LIMIT COMMAND, WHICH 
HAS THE FOLLOWING SYNTAX. 

LIBRARY LIMIT, EXPRSSION 

IT IS NECESSARY AT THE BEGINNING OF THE PROGRAM (OR AT LEAST PRIOR 
TO THE LIBRARY OPEN COMMAND) TO SET THE LIMIT VIA THIS COMMAND IN 
ORDER TO DEFINE THE BORDER (AT ABSOLUTE ADDRESS 'EXPRESSION') 
BETWEEN THE COMMON ARRAY STORAGE AREA AND THE VARIABLE/TEXT AREA. 
EXPRESSION IS LIMITED TO 1541 (OCTAL)< 'EXPRESSION •<7577(0CTAL) 
-EXAMPLEt L L,4095-128-3*N WILL SET LIMIT TO ALLOW SPACE FOR N 

VARIABLES 
(SEE CORE MAP FOR MORE COMPLETE DESCRIPTION) 

THE COMMAND 

LIBRARY CLOSE, NAME 
WILL RELEASE THE VARIABLE NAME FROM ITS RESERVED ARRAY STATUS, 

NOTE THAT ADDRESS COMPUTATION IS CARRIED OUT ON ARRAYED 
VARIABLES, THUS REQUIRING ONLY 3-WORDS PER VARIABLE. I.E. 
VARIABLE STORAGE IS MORE EFFICIENT WITH REGARD TO CORE STORAGE 
THAN 'NORMAL* VARIABLES (5-WORDS) 

LIMITATIONS 

THERE ARE MAXIMALLY 8 SUCH DIMENSIONED ARRAYS AVAILABLE. EACH MAY 
HAVE A MAXIMUM DIMENSIONALITY OF UP TO 4 SUBSCRIPTS. SUBSCRIPTS 
MUST BE GREATER THAN AND WILL BE CONSIDERED INTEGERS. THE 
SUBSCRIPTS ARE EVALUATED AS THE 12 BIT LOW ORDER INTEGER 
PART OF 'LIMITN' AND IS ASSUMED POSITIVE. 



MAY NOT BE USED TO LEFT OF "=" IN FOR STATEMENT. 

THE ONLY CHECK ON THE VALIDITY OF THE ADDRESS COMPUTATION IS 
THAT THE RESULTANT ADDRESS IS WITHIN THE AVAILABLE ARRAY STORAGE AREA 
AS SET BY THE LIBRARY LIMITS COMMAND, HENCE IT IS POSSIBLE TO USE 
SUBSCRIPTS WHICH ARE OUTSIDE OF THE DIMENSIONAL LIMIT - HOWEVER, 
THE USER MUST BE AWARE THAT OTHER ARRAYED VARIABLES MAY BE 
OVERWRITTEN. FOR EXAMPLE 

*L L,3000 

♦L 0, A, 0,2, 2, 2 

*S A(l,l,3)=0 
THE LAST COMMAND WILL NOT GENERATE AN ERROR MESSAGE - BUT THE 
VARIABLE AC 1,2,1) WILL BE SET EQUAL TO AS THE ADDRESS 
COMPUTED BY Ad, 1,3) IS THE SAME AS THAT OF A< 1,2,1). 

ARRAY ADDRESS COMPUTATION 

THE ARRAYS ARE STORED IN ROW-COLUMN ORDER, AND IT MAY BE USEFUL 
TO ASSIGN MORE THAN ONE ARRAY TO THE SAME STORAGE AREA SO THAT IT 
MAY BE ADDRESSED THROUGH A DIFFERENT ADDRESS COMPUTATIONAL 
ALGORITHM. 

SUBSCRIPTS ARE CONSIDERED IN ORDER OF ROW, THEN COLUMN ADDRESS. 
THE LIMITS MENTIONED ABOVE ARE THE LENGTHS OF THE ROWS. IF THE 
SUBSCRIPTS ARE CONSIDERED IN THE ORDER OF PRESENTATION AS A(1),A(2), 
A(3),A(4), AND THE LIMITS ARE CORRESPONDINGLY L( 1 ) ,L(2) ,L(5) , 
AND L(4), THEN THE FOLLOWING FORMULA MAY BE USED TO COMPUTE THE 
RELATIVE ADDRESS (FROM THE BEGINNING OF THE AREA ASSIGNED TO THE 
ARRAY) OF AN ELEMENT IN THE ARRAY: 

(((A(1)-1)*L(2)+A(2)-1)*L(3)+A(3)-1)*L(4)+A(4)-1 

IN THE EXAMPLE, FOR LIMITS 2,2,2,2, THE ABOVE SIMPLIFIES TO: 

(((A(l)-1)*2+A(2)-1)*2+A(3)-1)*2+A(4)-1 

THE FOLLOWING FOCL/S PROGRAM WILL PERFORM THE EQUIVALENT 
COMPUTATION: 

SET IN=A<1)-1;F0R M=2,4;SET IN=IN*L<M)-1 

THESE COMPUTATIONS ARE, OF COURSE, PERFORMED BY FOCAL/S AUTOMATICALLY, 
BUT IT IS USEFUL TO KNOW THE ADDRESSING ALGORITHMS, EXPECIALLY 
FOR PERFORMING "DUMPS" OF THE ARRAYED STORAGE, 

EXAMPLE: TO CREATE TWO VARIABLES WHICH DO NOT OVERLAP: 

L O,A,0,2,2 

L 0,B,5,4,4 
IN THIS EXAMPLE THE ORIGIN OF THE "B" VARIABLE WAS SET TO 5 AS THE 
"A" VARIABLE TAKES UP THE FIRST 4 ARRAY LOCATIONS. HENCE, THROUGH 
THE USE OF THE ORIGIN VARIABLES MAY BE CREATED IN COMMON OR NOT IN 
COMMON. 



"ON" COMMAND 

THE "ON" COMMAND IS A THREE BRANCH CONDITIONAL 'DO*. IT FUNCTIONS 
SIMILAR TO THE IF COMMAND (ACTUALLY USES SOME OF 'IP'S CODING), 
EXCEPT THAT THE LINE NUMBER (OR GROUP) IS EXECUTED AS IN A 'DO* 
COMMAND RATHER THAN AS IN A 'GOTO' COMMAND. 
— EXAMPLE: ON (X)2, 1,5,5. 4;D 6;C0NTINUE 

IN THIS CASE IF X<0 LINE 2.1 IS EXECUTED THEN GROUP 6 

IS EXECUTED; CONTROL CONTINUES ON 
TO NEXT LINE 
X=0 GROUP 5 IS EXECUTED;THEN GROUP 6 
X>0 LINE 3.4 IS EXECUTEDjTHEN GROUP 6 



LINE NUMBER COMPUTATION 

FOCL/S WILL ALLOW ANY ARITHMETIC EXPRESSION FOR A LINE NUMBER IN 
•DO', 'IF', 'GOTO', 'MODIFY*, OR 'ON* COMMANDS. 
—EXAMPLE: ON (X)-X,4. 1,X+.5;C-REST OF LINE 

IN THIS EXAMPLE IF X=-2, GROUP 2 WOULD BE 

EXECUTED AS A SUBROUTINE WITH RETURN TO REST OF LINE. 

IF X=0, LINE 4.1 WOULD BE EXECUTED;THEN REST OF LINE 

X=2, LINE 2.3 WOULD BE EXECUTED, WITH CONTROL RETURNED 
REST OF LINE, 

STARTS WITH A NUMBER, THE OLD SCHEME OF LINE 
IS CARRIED OUT. AS THE LINE NUMBER CALCULATION 
EXPRESSIONS USES THE FLOATING POINT PACKAGE, IT 
HENCE, IN FOR LOOPS ETC, WHERE ONE WISHES TO 



IF 
TO 
IF THE LINE NUMBER 
NUMBER COMPUTATION 
FROM ARITHMETIC 
IS RATHER SLOW. 



SAVE TIME, EXPLICIT LINE NUMBER EXPRESSIONS ARE DESIREABLE. 

—EXAMPLE: DO X; TAKES LONGER THAN DO 3.1 

TO COMPUTE THE LINE NUMBER. SIMILARLY "DO 2*X" IS 
ILLEGAL AS THE EXPRESSION STARTS OUT WITH A NUMBER (2). 
WHEREAS "DO X*2" WILL COMPUTE A LINE NUMBER. 



CONTINUATION CHARACTER CNT/K 

IN ORDER TO IMPLEMENT LONG LINES OF DIRECT OR INDIRECT COMMANDS A 
SPECIAL CHARACTER (CONTROL/K) IS USED. WITHIN FOCL/S THIS 
CHARACTER FUNCTIONS THE SAME AS "j" EXCEPT WHENEVER IT IS TO 
BE TYPED FOCL/S TYPES "tK(CR) (LF) (6 SPACES)". HENCE MAKING 
PROGRAM EASY TO READ. 
-EXAMPLE- 02.10 S X=(Xt2+FSQT(Y*3-Z)+t A( !, J,K)+B(J,K) lt4)tK 

S X=X/FSIN(THETA)+A(2,J,K) 
STRICTLY SPEAKING THIS IS NOT A CONTINUATION CHARACTER AS IN FORTRAN 
AS IT ALSO IS A COMMAND TERMINATOR. 



COMMAND STRINGS 



FOCL/S HAS NO SEPARATE COMMAND BUFFER FOR DIRECT COMMANDS. IN THE 
STAR (*) MODE THE COMMAND STRING IS APPENDED TO' THE INDIRECT 
COMMAND BUFFER: HENCE COMMAND STRINGS MAY BE AS LONG AS THE 
USER LIKES. BY USE OF THE tK CHARACTER LONG AND POWERFUL COMMAND 



C*TOX.%\flC MAV DC TMDI ITMtrMTCrn 



FUNCTIONS AVAILABLE 

SEVERAL FUNCTIONS HAVE NOT BEEN IMPLEMENTED IN FOCL/S AS (I) THE ORIGINAL 
ROUTINES ARE NOT VERY GOOD, OR (2) I HAVE FOUND THAT USERS PREFER 
TO CODE THEM FOR THEIR SPECIFIC HARDWARE. THE FUNCTIONS THAT 
HAVE BEEN REMOVED ARE: 

FRAN 

FADC 

THE FX FUNCTION HAS BEEN EXPANDED TO PERFORM SEVERAL DIFFERENT 
OPERATIONS AND TO ALLOW EXPANSION FOR USER DEFINED FUNCTIONS. THE 
GENERAL FORM IS! 

FX(N,ARGI,ARG2,-— ) 

WHERE N IS PRESENTLY 1,2,3,8,10 (DECIMAL). 

FX(1,ARG1,AR62) 

THE CORE MEMORY FUNCTION (FCOR IN FOCAL+ BY D.DYMENT). 

THIS FUNCTION MAY BE USED IN TWO DISTINCT WAYS; FX(1,ARG1) 

TAKES AS ITS VALUE THE CONTENTS OF THE MEMORY LOCATION 

SPECIFIED BY 'ARGl * (WHICH MUST fefe A DECIMAL VALUE IN THE 

AN6E 0-32767); FX( 1,ARG1, ARG2) PERFORMS 

SIMILARLY, FIRST DEPOSITING •AR62* IN THE SPECIFIED MEMORY 

LOCATION. THUS THE STATEMENT "SET X=FX( 1 , 12345, FX( 1 , 12545)+1) -, 

WOULD INCREMENT THE CONTENTS OF MEMORY LOCATION 12345 

(FIELD 3, LOCATION 0071 (OCTAL)) AND SET 'X ' EQUAL TO THE 

NEW VALUE. 

ALL ARGUMENTS ARE DECIMAL - THE FX(10,-)AND FX(8,-) MAY 

BE USED TO CONVERT FROM OCTAL TO DECIMAL. 

FX(2,ARG1,ARG2) 

THE "EXECUTE" FUNCTION (FXCT IN FOCAL+ BY D.DYMENT). 
THIS FUNCTION WHICH TAKES TWO ARGUMENTS - FX(2,ARG1 ,ARG2) 
WILL EXECUTE THE MACHINE LANGUAGE INSTRUCTION SPECIFIED BY 
•ARGl'. THE VALUE OF •ARG2' WILL BE PLACED IN THE 
ACCUMULATOR PRIOR TO THIS INSTRUCTION EXECUTION, AND THE 
VALUE OF THE FUNCTION IS THAT SPECIFIED BY THE ACCUMULATOR 
FOLLOWING INSTRUCTION EXECUTION. BOTH ARGUMENTS MUST BE 
DECIMAL VALUES IN THE RANGE OF 0-4096; •ARG2' IS ASSUMED 
TO BE ZERO IF OMITTED. NEEDLESS TO SAY, "JMP" INSTRUCTIONS 
AND THE LIKE SHOULD BE EXECUTED ONLY WITH EXTREME CAUTION. 
A SIMPLE EXAMPLE — SET Y:FX(2,3844) WILL SET Y EQUAL 
TO THE VALUE OF THE SWITCH REGISTER. 



BRANCH 

THE BRANCH COMMAND IS A CONDITIONAL "GOTO" COMMAND. 
THIS COMMAND FUNCTIONS IN A MANNER IDENTICAL TO 
THE 'GOTO' COMMAND EXCEPT THAT IT WILL FUNCTION AS A 
NOP IF THE LAST INSTRUCTION EXECUTED BY THE FX(2,— > 
FUNCTION CAUSED A SKIP TO OCCUR. THUS THE PRESENCE OR 
ABSENCE OF A SKIP MAY BE TESTED. EXAMPLE — 

3.14 SET Z=FX(2,5089)|BRANCH 3.14 
THIS WILL CAUSE THE PROGRAM TO WAIT UNTIL THE HIGH SPEED 
PUNCH FLAG IS SET, AND THEN CONTINUE TO THE NEXT LINE 
OF INSTRUCTIONS. 

NOTEt USERS OF THE FX(2, — ) COMMAND TO CONTROL PERIPHERAL 

HARDWARE MUST KEEP IN MIND THAT FOCL USES THE INTERRUPT 
SYSTEM FOR I/O SERVICING, AND IS NOT SET UP TO HANDLE 
INTERRUPTS GENERATED BY ADDITIONAL DEVICES. USERS EXPECTING 
INTERRUPT REQUEST FLAGS MAY EXTEND THE SKIP CHAIN TO HANDLE 
FLAGS FOR THE NEW DEVICES (FX(1,— ) HAY BE USED FOR THIS). 

FX(3,ARG1,ARG2) 

THIS IS THE 'AND' FUNCTION (FIRST IMPLEMENTED BY J. C. ALDERMAN). 
THIS FUNCTION CONVERTS ARGl AND ARG2 TO THE LOW ORDER 12 
BITS OF THEIR INTEGER VALUE, AND THEN PERFORMS THE 'LOGICAL 
AND' OF THEM, LEAVING THE RESULT AS THE VALUE OF THE 
FUNCTION. THIS FUNCTION IS USEFUL FOR MASKING OPERATIONS, 
ESPECIALLY WITH STATES MASKS, ETC., USED WITH EXTERNAL 
DEVICES. — EXAMPLE: TYPE FX(5,255,A) WILL PRESERVE 
ONLY THE LOW ORDER 8 BITS OF A. 



FX(8,ARG) 



THIS FUNCTION TAKES THE VALUE 'ARG' AND CONVERTS IT TO 
ITS OCTAL EQUIVALENT. NOTE THAT THE VALUE OF THE 
FUNCTION IS A DECIMAL-FLOATING POINT NUMBER, HOWEVER, 
IT WILL BE THE DECIMAL OCTAL-EQUIVALENT OF THE DECIMAL 
VALUE 'ARG*. 
EXAMPLE* FX(8,2t9) OR FX(8,512) WILL HAVE THE VALUE 1000. 



FX(10,ARG) 



THIS FUNCTION CONVERTS THE (DECIMAL) OCTAL NUMBER 'ARC 
AND CONVERTS IT TO ITS DECIMAL EQUIVALENT. (SEE ABOVE), 
EXAMPLE: FX(i0,2048) WILL HAVE THE VALUE 4000 OR 2tlU 



ADDITIONAL FUNCTIONS 



IN ADDITION TO THE LINKS TO THE ABOVE FUNCTIONS, LINKS 
ARE AVAILABLE TO FX(N,- — ) FOR N=4,5,6,7 BY ENTRY OF 
THE APPROPRIATE ENTRY ADDRESS INTO THE TABLE FXGO. 
(SEE TECHNICAL SECTION TO FOLLOW FOR FURTHER DETAILS) 



TECHNICAL DETAILS 

EXTENDED FUNCTIONS 

HAVE BEEN MOVED TO FIELD I. OCCUPYING UP TO LOCATION 1340, 
ROUTINES MODIFIED OR DELETED 

FPNT 

ALL EXTENDED FUNCTIONS 

FSQT 

LIB - DELETED 

NORMAL FIELD I PART OF 8K OVERLAY 

INITIAL DIALOGUE 

HAS BEEN REMOVED. HOWEVER A DIALOGUE MAY BE TAILOR MADE TO 
THE USER'S ENVIRONMENT THROUGH USE OF THE FXCl, — ) 
. COMMAND. 



LOADERS 

AS THE PS/8 SYSTEM DOES NOT HAVE LOADERS IN CORE AT ALL 
TIMES, ONE EXISTS IN FIELD 1 (STARTING ADDRESS 3777) TO 
FACILITATE OVERLAY READIN- NOTE THAT TEXT AND VARIABLES 
WILL OVERWRITE THIS WHEN NECESSARY AS FOCL/S IS USED, 



TEXT 



IN FIELD It STARTS AT 1340 BUILDING TOWARD 7577. 



VARIABLES 

HAVE BEEN MOVED TO FIELD 1 TO ALLOW (1) ADDITIONS TO THE 

INTERPRETER IN FIELD AND (2) TRADEOFF BETWEEN VARIABLES 

AND TEXT. THE FPP, GETVAR, TDUMP, AND ERASE 

ROUTINES HAVE BEEN MODIFIED TO BEGIN VARIABLE STORAGE AT 

THE UPPER LIMIT OF FIELD ONE AND BUILD DOWNWARDS. THIS IS TO 

AVOID ERASING VARIABLES WHENEVER TEXT IS MODIFIED. THE 

ONLY OBSERVABLE DIFFERENCE BETWEEN THIS AND 8K-F0CAL IS THAT 

(1) FOR ALL BUT MAXIMUM SIZED PROGRAMS MORE VARIABLES 
ARE AVAILABLE. 

(2) 'TDUMP* DUMPS VARIABLES IN REVERSE ORDER TO FOCAL/69 
I.E. THE MOST RECENTLY CREATED VARIABLE IS DUMPED 

MODIFICATIONs'hAVE been made to GETVAR, SET, AND FOR 
TO IMPLIMENT ARRAY VARIABLES 
ROUTINES MODIFIED OR DELETED 

FPNT 

XRTL6 (MOVED) 

TDUMP 

ERASE 

FOR/SET 

ASK/TYPE 

GETVAR 



PUSH DOWN LIST 

THE PDL RESIDES IN FIELD 1 WITH THE TEXT AND VARIABLES. AS 

OPPOSED TO FOCAL/69 THE PDL IS BUILT FROM THE TOP OF TEXT 

UPWARDS RATHER THAN THE TOP OF CORE DOWNWARDS. 

THIS WAS TO ALLOW VARIABLE STORAGE SUSCH THAT MODIFYING TEXT 

DID NOT ERASE VARIABLES. 

ROUTINES MODIFIED OR DELETED 

INPUTX 

START 

GONE 

XPUSHA 

XPOPA 

XPUSHF 

XPOPF 

RETRN 



ERRORS 

THE ERROR RECOVERY ROUTINE HAS BEEN MODIFIED TO GENERATE MORE 
UNIQUE ERROR MESSAGES. WHAT HAS BEEN DONE IS IF THE ERROR 
WAS TABLE DRIVEN IT PRINTS THE TABLE POINTER AS A LINE NUMBER. 
THE ERROR TABLE IS GIVEN LATER. 



USER DEFINED FUNCTIONS 



THE USER MAY CODE MACHINE LANGUAGE FUNCTIONS FOR USE IN FOCL/S 
THROUGH THE FX FUNCTION BRANCH WITHOUT SACRIFICING PRESENTLY 
EXISTING FUNCTIONS OR FUNCTION NAMES. ENTRY OF THE STARTING 
ADDRESS OF THE FUNCTION INTO THE FXGO TABLE WILL CAUSE BRANCH 
TO THAT ADDRESS WITH 'CHAR' EQUAL TO CHARACTER 
FOLLOWING THE N IN FX(N,--) (COMMA IN THIS CASE) 

FXGO=. (3773) 

OCTANX /FX(8) 

DECNX /FX(10) 

FCOR /FX(1) 

FXCT /FX(2) 

FAND /FX(5) 

FXNO /FX(4)-N0T IMPLIMENTED 

FXNO /FX(5) 

FXNO /FX(6) 

FXNO /FX(7) 

SEVERAL ROUTINES EXIST FOR EVALUATING ARGUMENTS. TO MOVE 

PAST COMMA AND EVALUATE NEXT ARGUMENT: 
PUSHJ 

NXTARG 
XXXX /NEXTARG DOES NOT EXIST 
XXXX /NORMAL RETURN WITH ARC IN FLAC 
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OTHER USEFUL ROUTINES ARE: 

TO SET 'FLAG' EQUAL TO INTEGER VALUE OF ACCUMULATOR! 

JMS I PXFIX 
PXFIX, XFIX 
TO DO THE ABOVE AND DO A NORMAL FUNCTION RETURN: 

JMP I PSETFLAC 
PSETFL, SETFLAC 

HOLE AVAILABLE TO USER 15:4454-5377 



ARRAY STORAGE 

THE LIBRARY LIMIT COMMAND DEFINES THE BOUNDARY BETWEEN 
RESERVED ARRAYS AND THE TEXT/PDL/VARIABLE AREA OF 
FIELD 1. WHEN THIS COMMAND IS EXECUTED ALL PRESENT VARIABLES 
ARE ERASED, IF AN ATTEMPT IS MADE TO SET THIS LIMIT LOWER 
THAN THE UPPER BOUND OF TEXT CURRENTLY IN CORE, THEN THE 
COMMAND IS IGNORED AND AN ERROR MESSAGE IS PRINTED. 

XOD COMPATIBILITY 

THE INTERRUPT PROCESSOR BRANCH HAS BEEN CHANGED TO ALLOW 
DIRECT USE OF 'XOD* AS A DEBUGGING PACKAGE FOR 
FOCL/S. A BINARY TAPE IS AVAILABLE, WITH 
PATCHES TO MAKE THE COMMAND STRUCTURE SIMILAR TO ODT, OF 
XOD THAT IS DESIGNED TO RUN WITH FOCL/S. THE BEAUTY OF 
XOD IS THAT IT RUNS WITH THE INTERRUPT ON AND RESTORS 
KEYBOARD FLAGS TO THE STATE IT EXISTED WHEN BREAKPOINT 
WAS REACHED. 



HINTS AND KINKS 

-TO TAKE OUT EQUALS: FX( 1,3165, 160) 

- TO TAKE OUT COLON: FX( 1,658,3712) 

- TO CHANGE CNT/C TO CNT/0: FX( 1, 1410,3953) 

FX( 1,3923, 143) 

- TO CHANGE V* TO CNT/U: FX< 1,3924, 149) - [COMMAND LINES! 

FX( 1,3553, 149) - tFPP. INPUTI 

- TO IMPLIMENT LINE NUMBER COMPUTATION FROM ARITHMETIC 
EXPRESSIONS AT ALL TIMES (I.E. DO 2*X IS LEGAL): 

S Z=FX<1, 196, 3065) 
-TO TURN OFF TELETYPE ECCO: FX( 1, 1 140,3712) 
-TO RESTORE TELETYPE ECCO: FX( 1,1 140,2404) 
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CORE MAP 



FIELD 



PAGE ZERO DEFS 



F C L / S 

INTERPRETER 



F C L /S 
ADDITIONS 



FREE TO USER 



FLOATING 

POINT 

PACKAGE 



PS/8 MONITOR HEAD 







«- 3140 



4500 



5400 



-7577 
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FIELD 1 
PAGE 



EXTENDED 
FUNCTIONS 



TEXT 

BUFFER 

1 
I 
V 



PUSH DOWN LIST 
I 
I 
V 



t 
I 

VARIABLES 



ARRAYS 



PS/8 



LINE 



1540 
LINEI 



«- BUFR 



*- PDLXR 

•- FIRSTVsSTARTV 

*■ SET BY LIBRARY LIMITS= BOTTOM 

♦- 7577 
- 7777 
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ERROR DIAGNOSTICS - FOCL/S 



MESSAGE ORIGIN 



?00.00 


200* 


?01.00 


177* 


?01.40 


250* 


701.78 


316* 


701.96 


340* 


701. :5 


351* 


701. ;4 


362* 


702.33 


441 


702.53 


465 


702.72 


510 


702.80 


520 


703.08 


610 


703.31 


637 


704.49 


1057 


704.64 


1077 


704.71 


1107 


704.74 


1112 


705.53 


1265 


706.00 


1401 


706.01 


1402 


706.08 


1410 


706.55 


1467 


707.22 


1626* 


707,38 


1646* 


707. t9 


1755* 


707. ;6 


1764* 


708.48 


2060 


708. <1 


2172 


708. <2 


2173 


709.01 


2202 


709.02 


2203 


709.12 


2214 


710.93 


2535 


711.35 


2643* 



MEANING 

INITIAL STARTUP MESSAGE. 

USER TYPED *CTRL/C*. 

ILLEGAL STEP OR LINE-NUMBER USED. 

GROUP NUMBER TOO LARGE. 

DOUBLE DECIMAL POINTS IN LINE NUMBER 

LINE-NUMBER TOO LARGE. 

GROUP ZERO IS ILLEGAL AS LINE-NUMBER. 

NONEXISTANT GROUP REFERENCED BY "DO". 

EXCESS RIGHT TERMINATORS ENCOUNTERED. 

IMAGINARY SQUARE-ROOT REQUESTED. 

PROGRAM TOO LARGE (PUSHDOWN-LIST OVERFLOW). 

NONEXISTANT LINE AFTER "GOTO" OR "IF" 

ILLEGAL COMMAND USED. 

LEFT OF "=" IN ERROR IN "FOR" OR "SET". 

EXCESS RIGHT TERMINATORS. 

ILLEGAL "FOR" COMMAND TERMINATOR. 

LOG OF REQUESTED 

BAD ARGUMENT IN "MODIFY". 

";" ILLEGAL AS ARGUMENT TERMINATOR. 

FOR LOOP TERMINATES BADLY. 

ILLEGAL USE OF FUNCTION OR NUMBER. 

STORAGE FILLED BY VARIABLES 

OPERATOR MISSING OR DOUBLE "E" IN NUMBER, 

NO OPERATOR PRECEEDS PARENTHESES. 

NO ARGUMENT TO THE FUNCTION. 

ILLEGAL FUNCTION NAME OR DOUBLE OPERATORS 

PARENTHESES DO NOT MATCH. 

FRAN FUNCTION NOT AVAILABLE. 

FADC FUNCTION NOT AVAILABLE. 

FNEW FUNCTION KOT AVAILABLE. 

FCOM FUNCTION NOT AVAILABLE. 

BAD ARGUMENT IN "ERASE" COMMAND. 

STORAGE FILLED BY TEXT. 

INPUT TOO FAST FOR OUTPUT. 
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713.97 


3331 


713.94 


3336 


714.48 


3460 


714.82 


3522 


715.10 


3612 


715.15 


3617 


715.38 


3646 


715.47 


3657 


715.60 


3674 


715.65 


3701 


715.92 


3734 


716.46 


4056 


716.62 


4076 


716.73 


4111 


716.77 


4115 


716. »4 


4150 


717.51 


4263 


717.71 


4307 


723.36 


5644 


726.73 


6543 


728.73 


7111 


730.40 


7450 


730. :2 


7546 



SPECIAL VARIABLE TO LEFT OF "=" IN FOR STATEMENT 

ILLEGAL LIBRARY CALL 

ARGUMENT MISSING IN FX 

CONVERSION OF NON-OCTAL # REQUESTED 

NO ARGUMENTS IN FX(3, — ). 

NO SECOND ARGUMENT IN FX<3,--). 

ARGl WRONG IN FXCARGl,-- ) 

VARIABLE IS NOT RESERVED • HENCE "CLOSE" ILLEGAL 

ARRAY NAME ALREADY IN USE 

ALL ARRAY NAMES IN USE 

ONLY 4 SUBSCRIPTS ALLOWED 

TO MAY SUBSCRIPTS FOR THIS VARIABLE 

WRONG NUMBER OF SUBSCRIPTS 

OUTSIDE COMMON ARRAY AREA} < LOWER LIMIT 

OUTSIDE ARRAY AREA; > UPPER LIMIT 

ARRAY 'BASE* OVERLAPPING TEXT (L L.BASE - TO LOW) 

NO ARGUMENT IN FXCI, — ) 

NO ARGUMENTS IN FX(2, — ). 

INPUT TO FAST FOR FPP. 

EXPONENT NEGATIVE OR TOO LARGE 

DIVISION BY ZERO REQUESTED. 

ARGUMENT MISSING 

ARGUMENT MISSING IN FDYS. 



15 



